home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level1 / FunctionalSurf2.vs < prev    next >
Encoding:
Text File  |  2002-10-07  |  836 b   |  26 lines
  1. ReadArchive "defshaders.vs"
  2.  
  3. static turb = vnoise(Po)
  4.  
  5. static octaves = 3
  6.  
  7. static wood_colors = SpectrumOfColors(
  8.     [0.000, '0.80, 0.67, 0.25', 0.222, '0.80, 0.67, 0.25']
  9.     [0.222, '0.80, 0.67, 0.25', 0.342, '0.60, 0.34, 0.04']
  10.     [0.342, '0.60, 0.34, 0.04', 0.393, '0.80, 0.67, 0.25']
  11.     [0.393, '0.80, 0.67, 0.25', 0.709, '0.80, 0.67, 0.25']
  12.     [0.709, '0.80, 0.67, 0.25', 0.821, '0.53, 0.29, 0.02']
  13.     [0.821, '0.53, 0.29, 0.02', 1.000, '0.80, 0.67, 0.25'])
  14.  
  15. Declare Woody = (sawtooth(2.0 * sqrt(x*x + y*y) + turb * noise(Po, octaves)) + 1) / 2.0
  16.  
  17. Declare mywood = Shader [ FunctionalSurface [
  18.  Color wood_colors[Woody]
  19.  IntersectionPointModifier(Po + turb * dnoise(Po, octaves))
  20.  Kd 0.75
  21.  Ks(0.4 + 0.5*pow(Woody,4), '1,1,1')
  22.  Kr 0.05
  23.  GaussianSpecularBRDF 10*(1.0 - Woody) ]
  24.  Scale(0.5, 0.5, 0.5)
  25. ]
  26.